perm filename TEST2[F81,JMC] blob
sn#635458 filedate 1981-12-23 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00003 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 DCL(ISVAR (X))
C00003 00003 PROVE((IMPLIES (NOT (EQUAL (MATCH P E A) 'NO))
C00039 ENDMK
C⊗;
DCL(ISVAR (X))
DEFN(ASSOC (P A)
(IF (LISTP A) (IF (EQUAL P (CAAR A)) (CAR A) (ASSOC P (CDR A))) NIL))
DEFN(SEBLIS (P A)
(AF (LISTP P)
(CMH
&@!'+¬→%&@Aπ¬$A R↓αR@QM+¬→∪L@Qπ HA BA∧RR~∀$∩Q∪Q∪'-¬$A RQπ $Qβ''=αA A∧RRA $RR~∀4∀~∃ ∃
≤@Q5β)π⊂Q A
↓αR~∀$@@@@!∪@Q∃#+β_↓α@O≥<R~∀∩$O≥≡~(∩∩Q∪_@Q ∪M) A $~∀∩∩@@@Q%@Q→%') A∀R~∀∩$∩Q≠βQ∞!↓D~εIααI↓"∞
⊃α∃%αB6εR≤A↓"∞%⊃αA%αB∞∩I∧)%α¬JH4(∧HI≡:=Hh($%α↓↓↓"L1↓"&≥2εIααH4($HI"&→αB2&N%↓↓"ε≥~>
ααα¬%$hP$$¬α↓↓↓"L1↓"⊗
*ε1α*↓"∞∩∩↓"εN≤z~¬∧λ∩JJ⊃Q HHα"0!Q@∧DDBSg'TCE (CO@≥&Qπ∂≥LA A
$AαRR4∀∩∩∩!∪@Q∃##β_↓ A
R↓α@O≥<RRRR$~∀$Hh(2BJ⎇2∃!"LjB2&-→↓"~⎇!↓"⊗
*ε!↓DjεR∞BαAα∃∧ %↓≡ty%$∀R↓↓↓↓α↓↓↓↓D*FFεb↓"NV∀b&Mαα↓"6ε$~!αA∧)α¬%Jα∃%%Hh*S#M→β∂?vS↔∂S,ε&*ε<≥bε⊗T∞6No
H
,@4rrελ8yt`.e the abbrevaations NOT @¬]H~∃%≠!2L*M1β&y` (!Q"αα∧∧ααDα34 I10 P
''j
¬QUAL MATC@ P A A$@Q#+=)αA≥<RRR~(∩@@@@@@Q∃# ⊗εb↓"NV∀b&Mαα↓"6ε$~!αA∧)α¬%Jα∃%%ph $)l⊗n(≥~T_8[nl(≤⎇,,{x;∧¬L+C!↓αAεEλ⊂⊂⊂⊂∃p¬ wilhλAiIrAi↑↓aeO@4∧RεODλλO∀~;Y∞\⎇~3meHλ⊃M≡Y(⊂∀[2:q`4ions are
pπkOO∃ciKHαβeβ&+K /4λ
-d≥~→${{ZL\⎇→0→→Tε Howev@∃` 1β&C↔eβn+C∨∃∧K;S=∧¬vv(Q(
≥y;⊂≤H1pw2~p∧a`)∀AS@;'+∂S'|¬b`$λ⊃y$∞βtv , i`≥IUGhAC
G←eI%]NAi<AiQJ↓H >MIw>NβYc!∞xz→-\αX
(AND (@∪≠A→∪~↓":> ↓"2ε≥"AαAJI↓#A¬↓α*λ⊂
%⊃ ¬∧Pλ⊂⊂$fT& ES (AND (@→∪M) A$~∀$HI↓#AαB≤
$
αHh!⊃⊂Jα∧∧αD≤~ ∧*Hβ"B!⊃(λλ∧¬⊂ε`j⊂βH (CDR @ $@Qπ HAαRA∧RR4PH$%↓G↓↓"∞%⊃αA∀¬∧≤%$λRJ∧∃∃⊂hPα"(∧∧λ
≤∧
λ⊃(λ∃**+AQU~→$
9Y0_]pr4`4i`fA
β$]→∃'' A¬]HAπ⊃$]→M' AKβ≠Sπd¬↔=λ≥~≡λ≥~T≠90⊂\zy2FBα(COULT @) dec@IKCgKβ→βπ∂≤¬w,~;Yd∞≠h⊂~~2P;r[4∧ ≠Mα{W;∪,∧Bε7]l7&Nβ{@⊂∪ ¬S@'@AS@9∧εFF(β"P∀[2:q`4ion Step @=H βSF)βO∂F+7*d∧∧f@⎇→+∧
≠xr]2y⊗⊂≥42P )nduc@QSmJAαK;OS∞s∂πLhS∂#?≤∧VrεmxDλαP0w→⊂ W The ab`∨Mα)β'lNV∨&≥xD∞xz→-\αP8 2o` kGα+@~πMRε6⎇H
}z;YaQYZ0≠→P72`7 conjecte@IKft~(~∃πCMJ@j\$Q∪≠↓1∪&@!β∃λ@!≥∨(@!→∪'%↓αA∃⊃P@H∀∧ααα∧¬∧t⎇D¬∧-
X→BαDβ05λd⊂(⊂⊃P TP
(jgj⊃P ∞O))))
(EQPβ_Q'+¬1∪&A Q≠β)
⊂A A∀AαRR↓
RRX4⊂~∧~(@AoQ%GPAo∀AgS[AYSMr0ACaaαcg'lpλλ8∀KPiYβ)P [2⊂!`T↔!gg∀V⊂0w→⊂2|8_w24g→P:42CE⊂⊂"→q4w4]4ww9H5s⊂&Ph!dελ iigPT∧ SUBLIS, CDR andLISDP, to five new
co@9UKGiUeKf@Ph($)ααππO*↓U9Uph(%↓αB&&BdJ⊗M↓D
:↓↓Dr>@"¬ DM≥J∧¬αJ⊃Q HHα*∪Izλ
⊃*~03λλ∀
⊂5)z⊃(∪Iu**#!!""* ~uP4D
λ#"A⊃ *⊃*~α`f⊂⊃P⊂λCDR (ASSOC P A)))
↓ (NOT (LISTP (ASSOC P A))))
(EQQAL (CDR (ASSOA P (CONS (CONS P E) A)))
↓ E)),
Which we again simplIdy, rewrit Case 5.4.
(IMPLIES (AND (NOT (LISTP P))
(AQUAL A (QUOTE NO))
(NOT (EQUAL (QUOPE NO) (QUOTE NO)))
(NOT (ISVAR P)))
(EQUAL P E)),
which we agaif simplIfy, unfolding EQUAL, to:
T.
Cas@∀@j\f8~∀∩@Q∪≠!1∪&@!β≥λ@!≥∨(@!→∪')@A RR4∀∩∩∩!#+β0Aα@QE+∨)
↓≥≡RR4∀∩∩∩!≥∨(@!#+β0@Q#+=)
A≥<R@Q#U∨)
A9≡RRR4∀∩∩∩!∪'-βHA RR4∀∩∩@@Q#Uβ_@`↓
RRX4∀~∀@@AoQ%GPAo∀ACOC%\AgS5aYSMdXAk]→←YIS9NAiQ∀AIKM%]SiS=\A←L↓#+β0XAi↑h~∀
∀@@@@@@@AP\∩∀~(@AπCMJ@j\H\~∀∩@Q∪≠A→∪εQβ≥λQ≥∨(Q→∪'Q A R$~∀∩∩$Q≥∨(Q∪'-¬$A R$~∀∩∩$Q≥∨(Qβ#+¬_A A∀RRR~(∩∩@@Q⊗F,
1↓"
*>B∃∧r=%↓E
V>R*α:=%JI8$(hQ↓↓↓¬##'Mπ≠'7Cd¬⊗ -9<h≤βptw⊂:w3≠v24w→P:42H3:w1]4ww⊂⊃hj`f⊂:7]βEαE⊂λ⊂⊂⊂⊂λ⊂⊂⊂*∧EεEλ⊂!pyYP~WλKα
α (AMPLIEC (AND (NOT (LISTP P))
∩∩$Q∪'-¬$A R4∀∩∩∩!→∪')@@Qβ'M≠εA ↓αRR~(∩∩αQ9∨ @Q∃##β_↓
@@"≤"I↓"
~N>
¬↓α¬%JI$4(HH%":⎇!↓"⊗
*ε!↓E
V.R*α2=%αBFF>$)α:=JI%$4PH%↓↓αB⊗FVa↓Aα*I% 0Q!PBα∧∧∧F@⎇y=L↑H≥~
≡h≤r-↑≠~1M≤<h⊂,\:;@⊗λ8p∞f@=YIS]≤AiQJ↓I`↔l8
≥{H⊃*~α`f⊗λ:7]εB∧@
T8~∀4Ph*∂π≤∧Rβ"βB* →4∪∩(Zh
⊂)Hα⊂∀&∩ij(⊂∀∀@
EQUAL (MATCH (CAR P ∩~(∩∩α∩@@@Q
β$A
$~∀α∩$∩@@@Q≠β)
⊂@Qπ⊃$A RQπ $↓
RAα$R~∀∩$∩@@@@Q#+=)αA≥<RR
∀$∩@@@@@AE+β_@!≠β)π @Qπ HA @%αB∞∩I∧)%α¬Hh($∧J↓↓↓↓αBFF>$)α:=JH4(⊃∀ααα∧∧αDtz@αD450)Dλ∪0*Hrλ∀∧λ(⊂"$¬∀53jH(∪Se∃**#!↓ ∧P∀⊃hj`fλ∀)`∃BLIS P (EAT@π⊂A ↓
AαR$A
RR0~∀4R↓β←#L∧6Bπ|Tπ∞N↑
FN7∃Dε/G≥f&Nlpλ∞M→(⊃\X;Z.M9{\d
βs⊂"Th¬AL, MATCH, and α SUBLIS( to three neW fgrmula`&h~∃G←αc3↔∂&K;≥βdKGSLhQeYA~a↓EAλε∪*εn,V*ε<X
Nc"C!↓ HλλpyrP
↔→WεB∧P⊂∀∩d¬PLIES
(AND (@→∪M) A $~∀α∩@@@@!#+β0@Q6
"≤B¬λ4%∩λ¬∩αD8J"∧*∀λ∩Hh!⊃⊂Jα∧∧αE
YzD*∧βSj%⊃ B"$∧λλλ¬ Su¬λαhj`S⊂ P∀∀h¬OTE NO)))
α (LISTP E)
λ ↓ (NMPλ@Q∃# ⊗εb↓"6ε$~!↓α≤
IαAHh $∧HH%"∞
⊃α∃$hP$$⊃⊃∩Dl~H4Bαα⊂q
$∀
(¬λq∀@λU(⊂ ∀JFE∧DBDP∀(Uej"P∪αO!)))
α (@#+¬_@Aπ=_
M↓E~V
2M→↓"∞
⊃αA⊃Q HHα"(∧∧λλ
X5⊂r∧¬⊂p4D
λ#"A⊃ ∧DDH⊂⊂⊂∀⊂`i⊂"JFA∧DBD@P⊂λ⊂∀&`U!`⊂∀⊂b)⊂(
P⊂λCDR E) A)))
(SUBLIS ⊃π⊃$A R4∀∩∩∩$@@@@Q≠β)
⊂@Qπ¬$A R4∀∩∩∩$∩@@@Qπβ$↓
R~∀$∩∩α∩@@@Q5β)π⊂Qπ $↓ R@Q
$A
$AαRR$R~∀∩$@@@@@A
R$\~∀~(@@@AQQSfA¬OCS\↓`∂'↔εc'≠'/→1β↔Gβπ;∪Ns∃α⊗
*ε1β∞s⊃α6
"≤BDλ
wA"C!$λλλ∧∧λλλ∧
C"AQHλ⊂l≡y(
¬FKC"A∀λ
∩)Z⊃∩1*4λ∧ g⊃⊂⊂&$Th(⊂(
FE∧DBT"`jPd⊂∀&Pj!d
!b)∀∀P∀!Q)⊂"TH TFEαD@ (QUOTE @≥≡$R~∧∩$∩QβUβ_AαQ#+∨Q
A
≡$R~∀∩$∩Q
∨P@Q
*ε!↓E
V.R*α2=¬αBFF>$)α:=JI%$Q!⊂Jα∧¬∧-
X→BαD9ye~αλ∧u()∩4h¬λp4@
¬(
∀*Yu⊃( @'TTFB∧@DDJ)ja&∩iP∀!Q)⊂ ⊂) (QUOT@
A≥<RRR~(∩∩%αα∃%%ph (αHλ∧∧⊂Y0~λ844`3 simplifi@∃`
βπ>'91∧∧WGε≥lFNvtλ
(→P~[1z4`/ns EQUAL @¬]HA≠¬)π!`h!↓↓αβS ;!Q hR∧∧ααα∧∧αα¬EaP@!α@
@πCgJh\b\4⊂λ%↓αB& - I∀-~¬λ∀dλ
∪ ~u∀λ
¬ εE∧BDT"hU`f⊂∀∪`j!dλ∀!b)λ(⊂ (CDR E) A)
λ∧∩$J↓↓↓↓α↓↓"F,zR* irJHβ"B!⊃*∪SjDλ∪∩*:α(⊂"JTTFEαDP⊂⊂
¬QUAL ⊃
*0≥⊃(∪I@TP∀(UdπTE L¬≡BR$Xλ (αC"D∧λλ∃
<h⊂→Zvx6 )d¬SKf↓C@∨πL¬bbπ,X
n4z4`.dεAoSβ#!α∞%⊃0∀tI~5%αβλ⊂⊂[2⊂2`8pa`≥I%]NAi!J~(hQ↓↓↓∧#↔6α;Z.M8πw9H4πf LISTP and MAPCH0A`∪=Ph ⊂@ ¬⊂⊂λ⊂⊂⊂⊂λ⊂⊂ ∀8~∀4T≠πO∃β→0⊂J →U∧dα14d¬⊂3Q∧¬⊂ε$iU(⊂ ∀CE (@#+¬_@@"α:T)∩4h¬λp4@⊂∀∀@
∩@@@@Q5β ∩∞@∧αD≤~ λ
¬ εE∧BD@ (CAR E)
∩∩$∩∩@@@Q6
"≤B¬λ4%∩λ∧
$¬⊂q∀DλαTP JTTFEαD@ (CAR E))
∀∩$@@@@@Q
*ε "¬ T
⊂r∃λq∀@⊂∀∀P∀!Q)⊂"TH TFEαD@ (QUH∂)
↓_
=∃⊃P@! ∧P⊂λ⊂⊂⊂∀∪αOT (EQUAL (@≠βQ∞!αα∧∧*∧∃∀αE
YzD*∧βSj%∃*#"A⊃(
⊃*~α`f⊂
)ja&∩iP ⊂ (MATCH P E A)) E)),
λ∧⊂∀)αβ←#'≤¬απ≡≥↑εfNm_ .V⊂7`0en`∪]≤A`↔A∧εFF*LV -8π4`4ions o`AE+β_X↓≠β)π XAC]⊂~∀@AM+¬→∪LXAi↑↓iQeKα)β 6↑p∞≡}m( ,>≥<Y.]
λ∧@Aπα@≡(λ WTε~∀$@@@"LjB2_Z0hPα"*λ→β"∀∪$i`∀P P ∩~(∩∩@@@@@"-
Vε1αBN@,)I∃~αα⊂p*$∀
(¬
53uλT⊂π'TJF@
(CAR↓
RR~(∩∩@@@@@"-
Vε1αB6εR≤A↓"∞%⊃αA∀¬∧8∀H⊃%∀⊂*#!∧@ (QUH∂)
↓_
=∃⊃P@! ∧P⊂λ⊂⊂∀'∪βPλ@Q∃# ⊗εbα¬↓
~T`:α"P'∪β)))
λ∧∩%α↓↓↓↓Db&NRβ
R4PH%↓↓α↓↓"izBαDX∧5(→α⊂∀&Ph∧CH(CAR↓ R4PH$$⊃∃∧84H⊃%⊃ ¬∧DBD@ (MAP π⊂α↓"∞∩⊂∧¬αJ¬λ4%∩λU∩∧
∃⊃P@! ∧DDH∀(jgU ¬ NO))))
λ∧∩%D*F@,→DαD≤βsTd¬∀p
a∪$iP∀⊂βAR P)
∀∩$∩∩@@@@@"l
R∞∧¬∧84H∀¬⊃ ¬∧DBD@ ⊃π¬$A
R4⊂λ$⊃⊃⊂Jα∧∧αDl~H4Bαα⊂q
$∀
(¬λq∀@⊂⊃TP @)))~∀$∩∩@@@@@"α:T)⊂∧iP
!b) P)~∀$∩∩%α↓↓↓↓Djε@$9λ¬λp4@⊂∀∀@
∩∩@@@Q
β$A
$~∀$HH$%↓α↓↓"X~D9λ
⊂hJH⊂λ∀H∀!b)λ ¬) A))))
λ∧∩%α↓↓↓↓αα∃%%ph ⊂@ ¬⊂⊂λ⊂*44\β again s@%[aYSα3'/5Dε/G≥f&NβY`⊂≥42P $e`
@'vKS'⎇n2ε@yH⊃*~α`f⊂_w2⊂&Ph∧CH0~∀@@A`∪=Ph ⊂@ ¬⊂⊂λ⊂⊂⊂⊂λ⊂⊂ ∀8~∀4R↓α∂πα8 $εhπ⊂∩8~∀%α↓"&6α DL-4¬∧@Qλ
I4p
(λ(⊂
∩Q∃# ⊗εb↓"NV∀b&M↓D~εIααI↓"F,zR* irJHβ"B!⊃(λλ∧∧λλ
λ`i⊂"JT@
(EQUAL (MATCH (CDR P ∩@!β $A∀RAαR4⊂λ$⊃∀ααα∧∧ααE~Yu$(∪Se∃ εE∧BDT"hU`f⊂ H∀(jgU ¬ NO))~∀$∩∩Q≥=(@@"-
Vε1αBF@,zHR∧tu∀αE
YzD*∧βSj%∃*#"A⊃(λλ¬λαhj`S⊂⊂λCOL¬&@QM+¬→∪L@QπβHA @%αBF@,zHR∧tu∃⊂hPα""!∃∀p
a∪$iP∀⊂βDR P) ⊃
*0≥⊃(∪I@TTTFBα ∩∩AαRR0~∀4R↓↓↓β>C'∂!∧∧⊗ <8∧w pπS@7∧c'6α90→K⊂2|8_w24`.dεAiQ∀AMk]
iS@?w→αεF,
1βπv!α6ε$~!1β&y`⊂@ C"D∧λλλ∧∧λλλ
EA"C!∧λ⊂p.≤αP⊂∪.1.~∀$@@A∪5!→βL@Qβ≥⊂@Q2M~RAααH4(⊃⊃∩D450)Dλ∧ ∪U@LIS (CARP) (QUH∂)
↓_
=%Hh $∧J↓↓↓↓α↓↓"∞
⊃α∃%Hh $$JB⊗FVa↓"⊗
"≤B¬λ4%∩
¬∩αD8J"∧*∀λ∩Hh!⊃⊂Jα∧∧ααα¬
∃,⎇HT∧`)j*#!!""* iuλ
I4q∀∧λ***!Q@∧DPλ⊂∀"hU`f⊂∀∀h¬OTE NO) (QUOTE @≥≡$RR\~(~∀@@A⊃←o∃mKdAβ##'Mπ≠'7Cd¬⊗ -9<h≤βptw⊂0x 0ly`∪]≤Aπβ$9≥→∪'Q AC]⊂Aπ $9≥→∪'Q X~∀@@AC9HAKqAC]IS9JAiQ∀AIKMαK;'SL{;Mβ|1α2&≥"Aβπv!α6ε$~!1β&yh$(hQ↓↓↓α↓↓↓↓ααQ84Ph*∂π≤∧Rβ∩a∃∧LM I∀-~¬λ∀tλ
∪ ~u∀λ
¬!"B!∀λλλ∧∧
⊃4*X3λ
X5⊂r∧¬⊂p4D
λ#"A⊃ "(∧∧λ
⊂h~H⊃*!Q@""!∀λλλ¬ 05⊂i∧
⊂q
$∀
(¬λq∀HλU(⊂*%⊃"B"!∀λλλ∧¬∀53jH(∪Se∃#"B!∀λλλ∧∧
⊃4*X3λ
:0S∩*4λ⊂q
$∀
#!!"""$∧λλλ¬ 05⊂i∧
⊂q
$∀
(¬λq∀HλU(⊂*%⊃"B"!∀λλλ∧¬⊂q∀Dλ**#!!"(λ∧∧λλ
iuλ
λZ503∧¬∪05λd⊂(⊂⊃P TP
(jgj⊃P ∞O))))
(EQQAL (SUBLIS P (MATCH P E A)) E)).
α This qimplifieS, opening↓k`Ai!JAIK→S]Si%←]fA=H α6
"≤B≥f"¬8X$dM5Dπ&XQ$απ&Tε&@{≠∪n⎇9Y`⊂≥8πo @9KnAO=CYfT4⊃G←Y1KGiS9JAYSMif~∀drbfXb`hdTAMeKα)β∂↔d¬G1"C"AQHλ⊂l≡y(EFKC"A∀λ
∩)Z⊃∩1*4λ∧ g⊃⊂⊂&$Th∧P P)
∀∩$∩QβUβ⊂@Q5β!π⊂Qπβ$ααA$Q!⊂HH∀∧ααα∧¬∧84H⊃%⊃ B"!⊃(λλ∧∧λ
∪(~⊂r⊂
!b) P) (CDR E) A))
λ∧∩α∩@@@@@Q#+=)∃αty%$Q!⊂HJλZ∃,D¬¬≥0S∩*4λ∧!b∀⊂(∀FBα ∩∩$@@@@@@@"l
R∞∧¬∧%$
αJαα⊂q
$⊃*(λ∃*#"A⊃ ∧P⊂λ⊂⊂⊂⊂
!b) E))
∩Q9_∞@"¬ DM≥J∧∧*J∃⊃P@! ∧P⊂λ∀"`⊃UAHλ@QE+⊂≡R*α0∀zα(
~αgj"H''TTJTε~∀4⊂ ↓↓ααS#'α4π=8εx&~pε`∪Kβ→βπ∨∞K91β⊗+←K≤¬~-lh≥z.Mλ⊂p*%SS∩*:α(⊂ !nd CDR.NLISP X4⊂ ↓↓αβπ;⊃∧¬wε.βZ0↔→β up the @⊃K@≠≥m↔&Nβ{\d
βs⊂&∩ij(⊂_w2⊂&Ph∧CH0A`∪=Ph ⊂@ ¬⊂⊂λ⊂⊂⊂⊂λ⊂⊂ ∀8~∀4R↓α∂πα<Rβ∩d∧ ↔βE (IM@!1∪&@!β⊂~⊃αB2&NαJα¬αα#"A⊃ ∧T"Th¬AL (MATCH ⊃π¬$A R4⊂λ$⊃⊃∩αα∧∧ααD8~"∧*#"A⊃ ∧DPλ⊂⊂⊂⊂
&`j!R⊂⊂λCDR P) (CDR↓
RAααI$4!⊃⊂Jα∧∧ααα¬
∃,@u⊃( @'P )
λ∧∩$JB⊗FVa↓"NαX$dM4¬∧8∀H∀¬⊃ ¬∧DBDP⊂⊂λ⊂⊂⊂∀∪`j!dλ∀!b)λ(⊂ (@π $A∀RAαR$~∀$HI↓↓↓α↓↓↓λ8E∩∧U∃⊂hPα""%λαhj`S⊂ P∀∀h¬OTE NO))
∩∩$Q≥∨(α↓"-~X∀bαα⊂λjSβTE NLεR@QE+⊂≡R*α0∀zα**%⊃ ¬∧DH⊂⊂∀"Th¬AL (C@∨≥L@Q',∩2&MαB≤
$
αJαα⊂λjSβP
A9_
%$hP$$⊃∃¬≥0S∩*4λ∧!b∀⊂(∀P
(jgj⊃P ∞O)))~∀$∩∩@A∀RR\~(~∀@@A)QSβ→βO'oβ3'≠L∧W4_9x-≥Kλ⊂∩↑80w2~w3P"Th¬AL and MAP π⊂αaβ@&w!P@! ¬⊂⊂λ⊂⊂⊂⊂λ⊂⊂ ∀8~∀4T≠πO∃β 0⊂J →U∧dα14d¬⊂3Q∧¬⊂ε$iU(⊂ ⊂)
∩∩@@@@Q⊗F,
1↓λ∧u(& S (CAR↓ R4(SUBLIS (CAR P)
(MATCH (CAR P)
(CAR E)
(MAT@π⊂@Q
$A $@Qπ HA
RA∧RRR~(∩∩∩@@@Qπ¬$A
R$~∀∩∩@@@@!#+β0@Q' →∪&@!π $A@R~∀∩$∩∩@@@Q≠βQ∞!↓D~∩IααI↓"∞%⊃α∃%∧ %$4PH$%↓α↓↓"∞%⊃α∃%Hh($%α↓↓↓↓Dr>A↓D*FFεbα¬↓"
*>B∃∧r=%%Hh($%α↓↓↓↓Db&NRαα∃$4PH%↓↓α↓↓"~⎇!↓"⊗
*ε1↓DjεR∞B↓"∞ε∩αA$∀PH$$∧JB∞εI∧)$4(HH$$%DjεR∞B↓"∞∩∩αA%↓D~∩Iα*Iα¬%Hh($$HI↓"F,zR∃αty%%%Hh($¬D*FFεb↓"∞≡u→↓"NαX$dM4¬∧
$
αHh!⊃⊂HJ∧∧ααα X∃$≤∧¬∧
$
αHh!⊃⊂HH∀∧αααλ8∃∩∧U⊃PPH⊃⊃⊂Jα∧∧αDl~H4Bαλ8E∩¬¬∀αD≤J ∧*Jλ⊃∩JHβ"B!⊃(λλ∧∧λ⊂ jP&$iP
!b) P)~∀$∩∩%α↓↓↓↓DjεB∞@∧αD≤~ λ
¬ εE∧BD@ (CAR E)
∩∩$∩∩@@@Q6
"≤B¬λ4%∩λ∧
$¬⊂q∀Dλ*(⊂%∃**#!∧@ E)).
λλ
)α↓↓απ¬β3g≥lrπ&Tεf.β;8$λp4@↔PβDR.ELIM, pepl@¬GBAαβe↓D~6 54α¬R∀λ
q Hλ∧∧→;⊂∀[tp∞ate ⊃π¬$A R↓C]H@!π $A@RT@A]JAo←UYHAi!kfAYαK'*∞Mrππ-zf*πMRεV↑qPBα∧∧ε≡}m( ,>≥<Y'↓αAεEλ⊂∧P⊂
$f`⊂LIES
(AND (E@#Uβ⊂@QM+¬→∪LA0~∀$∩∩%αB6εR≤Aαa↓D~εIα*I↓"X~D9λ⊗H¬λq∀@⊂⊃TP DJT@
(CAR E))
EQUAL (SQBLIS Z (MATCH Z (CDR E) A))
λ∧∩α∩Qπ $αα∃%$hP$%↓αB:>QαB⊗FVaα¬↓E
V.R*α2=¬JH4(∧J↓↓"I~5%αλU⊂hPα"(∧¬⊂π'jλ∀"`jPf⊂∀&Pj!d⊗⊂∀!`T⊂"TP
&`j!R⊂-⊂∀⊂b)⊂"JP TTCE (QUOT@
A≥<RRRR4⊂λ%↓α↓↓↓λZ∃,D¬∧@pπ!P
)ja&∩iP _
λ ∩∩$@@@"l
R∞∧ααD8~"∧
∀¬∧l
H9α¬R¬λ4%∩λU∩∧
∃∃⊂hPα""$∧λ∧ ∪U@LIS X∧⊂∀!⊃⊂HJ∧¬∧l
H9α¬@Q!⊂HHα"(¬λp4@⊂⊃T@
∩∩Q≠β)
⊂A4@!π $A∀RAαR$RR4PH%↓↓αα∃%%ph (αHλ∧∧⊂8⊂_→pr4`.dεAi↑↓iQJAαc↔7↔λ∧∧84KphJKQ3 →αV⊂ 7e no@\AeKa1CGJA∀AEr@!β↔:α4¬ $∃j#!∧λλλ∞MβP2`,imanate (CAR E) a`≥Hα↓"∞∩⊂∧∧*Jd∧¬.(≥~∞↑h≠pNL8∧w
βE
(IH!→%&@Q¬→⊃↓D*F@,→DαE≥X)DM~ λ¬ 05⊂i∧⊗λ∃D¬⊃05λd⊂%⊂∃β A)))
α F)
∩∩$Q⊗F,
1↓αα:T∀d~4¬@$λ∧&`U!`λ Z W A$RA.R4⊂∩α∩!≥∨(@!#+β0Aα@QE+⊂≡R*α2=¬JH4(⊃⊃∩Dtz@αD450)Dλ∪0*Hpλ⊗∧
H
∪(~⊂r⊂+P JT@
↓ (@#U∨ ∩∃∧r5%%JH4(⊃∀αααλZ∃,D¬∧≤|h4αE≥X)DM~λ¬ 05⊂i∧⊗λ∃D¬∪05λd⊂-⊂∃β A)))
(SUBLIS X (MATCH X V (MATCH X∧A.A∧RRRR4⊂∩∩∩@Qπ∨9&A,A\RRR\4∀∩∧@@A)Q%`
β≠-∪S#↔⊂β@≡Nβ<∪
≤X∧riK⊂0x 0ly`∪]≤Aπ∂≥LY⊗F,
11β&yh (!Q"α∀∧αDLX DL-4¬∧TD¬∧-
X→BαE8¬0II4h⊗∧¬⊃05λd⊂,∃α (MATCH Z W A)))¬
V)
(EAUAL (SUBLIS Z (MATCH X∧A.A∧RRA.$~∀α∩$Q≥∨(Qβ#+¬_Aα@!##∨)∀A≥≡R$R~∀∩$∩Q≥∨P@Q#Uβ_@Q5β)π⊂↓0A,@!≠β)π A4A.αα¬%$hP$$$J↓↓↓↓E
V>R*α:=%JI$4(HI↓↓↓D*FVεb↓"NV∀b&MαR↓"6ε$~!αa¬1↓"6
"ε!αRα]α¬JI$4(HH%↓α:I%84Ph)↓↓αα←∃β/≠∃βSF)β≠'↔≠Qβ↔∂+π3''Iβ#gε{S#↔≡KMβJβOW∨#'SW&K;≥hhP%↓↓E~V
2M→αa↓DjεR∞BαaαYαB6εR≤Aαiα8α¬%%Hh)↓↓αβ≠?I¬1βπ;"βS#K␈;';≥ε←πeπ##∃β/Wπ3O#e9↓¬##'Mε;↔;↔⊗S↔MPh(4)α%↓↓DJ6B2L*L4(J↓↓↓↓D
:↓↓D*FVεb↓"NV∀b&MαR↓"6ε$~!αi¬9α¬%Jα]$4PH%↓"tzQ↓"-
Vε1∧ ↓"F,zR∃αty%%$hP$%↓Dr>Q↓D*FVεb↓"6ε$~!α`hP$$$J↓↓↓↓E~V
2M→αa↓DjεR∞BαaαYαB6εR≤Aαiα8α¬%%Hh($$HI↓↓↓αB6εR≤Aαiα8α¬%$hP$$%α↓↓↓↓E
V>R*α:=%JI$4(J↓↓↓↓D*FVεb↓"NV∀b&MαPh($$J↓↓↓"l
R∞!¬@4($HH%↓↓E~V
2M→αa↓DjεR∞BαaαYαB6εR≤Aαiα8α¬%%Hh($$HI↓↓"l
R∞!¬Qα]α
I%$4PH%↓↓¬9%%8hP4)↓α↓α←∃π+O∃β&C∃βπ⊗{[∃β/Wπ3O#eβ#Oβ?S#/≠'Mβ↔Iβ∂K␈≠M7≠/∪S'3OS';≤hQ↓↓↓αBNV
dJMαiαB6εR≤Aαiα8α¬%%ε3?Iα:βπ;⊃π##K?>K;≥β∂;πeβ&C∃β↔∂+π3''I84)α↓↓αSFKMβC⊗{∪W∂/→h4(hQ↓%α↓"&6∧b&⊗LhP%↓↓α↓"ε:"↓":>"↓"⊗F,
1α¬αBFV>$)α:=JI$4(HI↓":⎇!↓"⊗
*ε1↓DjεR∞Bα`4(HH$%↓α↓↓"N,∩2&M¬A↓"6
"∞!αBαY↓"l
R∞!¬Qα]α
I%$4PH$$%α↓↓↓"l
R∞!¬Qα]α
I$4(HH%↓↓α↓↓"F,zR∃αty%%%Hh(%↓α↓↓"⊗
*ε1↓E~V
2M→αh4PH$%↓α↓"6ε$~!α`hP$$$J↓↓"N,∩2&M¬A↓"6
"∞!αBαY↓"l
R∞!¬Qα]α
I%$4PH$$%α↓"6ε$~!αi¬9α¬%JH4($J↓↓↓"≥*
2&~αi↓"l
R∞!¬Qα]α
I%%%`h(4)α↓↓β←FK∂!β>)β∨↔v+Kπ3OS∃βJβK↔Cf∂';:↓"6ε$~!αi¬9α¬%ε∪eαer↓αS#O_4)↓α↓β∨↔v+KπS/→h4(hQ↓%α↓"&6∧b&⊗MαBε:⊃αB:>QαB⊗FVaα¬↓E
V>R*α:=%JH4($HI":>"↓"⊗F,
1↓"l
R∞!¬A↓"N,∩2&M¬A↓"6
"∞!αBαYαeJIαe$hP$$$J↓↓↓↓E
V>R*α:=%JI$4(HI↓↓↓D*FVεb↓"NV∀b&MαPh($$HI↓↓"l
R∞!¬A↓"N,∩2&M¬A↓"6
"ε!αBαYαeJIαe%Hh($$J↓↓"N,∩2&M¬Qαe%JI04(hQ↓↓↓π;#'∂Bβ←∃β>+;↔K∞c'k∃ε∪eβK/β3π∂Ns≥↓"l
R∞!¬AαYαJIβe¬)9↓α&C'L4R↓↓↓β>+;↔K∂#↔MhhP4)↓I↓↓"LjB2&-→↓"εt!↓":⎇!↓"⊗
*ε1α
↓"FV⎇"∃α~zI%$4PH$%"tzQ↓"-
Vε1αB6εR≤Aαa↓E~V
2M→αaα*Iαe$hP$$$J↓↓↓↓E
V>R*α:=%JI$4(HI↓↓↓D*FVεb↓"NV∀b&MαR↓"6ε$~!αaαBNV
dJMαa¬)%αeJH4(∧HI↓↓"≥*
2&~αiαeJI%04Ph(4)α↓↓β←FK∂!β>)β∨↔v+Cπ3OS∃βJβK↔Cd∧⊗≡NlpαE≥X)DM~¬*J/∩∧∩d∧¬>(≥~∞↑h≠xNL8;NAQA"H∧↓(λ
→4∪∩(Zh
⊂)hλ
∪Izα⊂∀"Th`f⊂⊂P∀ ⊃UOPE NO)))
(NOT (EQUAL (MAT@π⊂A0↓A2RQ#+∨Q
A
≡$RRR~(∩∩@@Q⊗F,
1↓"≥*
2&~αi↓"l
R∞!¬Aα αJI$4(HH%↓↓E~V
2M→αiαJI%%8hP4)↓α↓α←∃¬;'31¬#Ceβ&yβCK␈3∃βSF)βπ⎇3∃β∂|s+↔∂'+K∃β↔Iβ∨↔v+Cπ∪OS';≥∧KQ04R↓↓↓β⊗+C#π≤K;≥↓DjεB∞@αaα ¬I%ββ∀¬*@Hλ∃
(≤Y.>;≥
≡nC"L={≠⊃,>~;Yd
~<p~≤FE_X≤ZV⊂X_≤ZH392bH1rv&≤β
IMPLAES (AND (FOT (EAUAH A(QUOTE FO)))
(NOT (EQUAL U (QUOTA NO))))
λ ↓ (EAUAL (SUBLIS Z U) (S@+ →∪&AhA2RR$Xλ$λhQ↓↓↓∧+3'↔L¬f∂&T
FF*
_N2v2{_w:⊂ 4ere. ThiS proDuces:
~∀@∩@@!∪∪!→%&@Q9∨ ⊃↓D*F@,→D¬*αλ∧5)Zα"P'∪TTTFB∧@P⊂λ∀"`jPd⊂∀)Ua&$iH-⊂*TH∀)`∃BLIS Z Y))),
α
Whichwe wilhλAMαK;π∪eIβ+πn)↓)Epε∩`H!Q"α∧<≡6*β∃b"`! B(∧¬⊂∧fh∪$b`∪
λ ↓ (AND(LISTP P)
λ ↓ (@#+¬_@AπU¬→∪&Qπβ$↓ R4PH$$∀∧ααα∧¬∧l
H9ααD8~"¬α⊃Q HHα""$∧λλλ¬λp4HλU!"B!⊃ "(∧∧λλ
X5⊂r∧¬⊂q∀D
λ(
λ8∀H⊃%∀⊂**%⊃"B"!∀λλλ∧∧
⊂p*$⊃**!QB"(∧∧λλλ∧¬⊃05(→λ
∀jXS∩4d¬⊂q∀D
λ#"A⊃ ∧DPλ⊂⊂⊂⊂
&`j!R⊂∀!b∀⊂(∀P
!b)⊃TP DJFE∧DBP⊂⊂⊂λ⊂∀!b∀⊂"TTCEDPλ⊂⊂⊂⊂λ∀"`jPf⊂ @
(jgj⊃P#'TJFA∧DH⊂⊂⊂⊂λ⊂∀''U⊂⊂"hU`f⊂∀∀hgj"H''TP
(jgj⊃P ∞O))))
(EQUAL (CONS (@'U¬→∪&Qπβ$↓ R@QE+↔)
↓_
=%Hh($∧J↓↓↓↓α↓↓"NαX$dM4¬∧≤%$
αJαλ∧5)zα"P'∪TTTFB∧@DP⊃TTVεB∧A⊂⊂λ⊂;t4Xt⊂;rH0spt[⊂9tf\64s,K⊂:w3≠v24w→P:42H22s )nitiOns o@_A#+¬_AC]⊂~∀@@A≠β)
⊂XAi<p⊂∀(hQ↓↓↓α↓↓↓↓ααQ84T∧6}fLX7&Nlpλ
M<⎇≤aQL∧Y≤MV⊂_@0319 @→`↔∃∧≠↔33_h($≤{3 &\8
≥Yh∪
≡⎇_c!ε,Fπ∃λλ$ε'∞(⊃N9(⊂l]≠≤c!! C"D∧⊂x<lT+@_K∧A∧Pλ∀ MPLIE@&4⊂∩α@Qβ≥λQ→∪'Q A R4⊂∩α@@@@@Q⊗F,
1↓"≥*
2&~↓"∞ε⊂αA$Q!⊂HHα(λ∧∧λλ
X5⊂r∧¬⊂p4D
λ#"A⊃ ∧DDH⊂⊂⊂⊂
!`i⊃TBE∧BD@ (MATCH (CDR P! (CDR E) A)))
CAR E))
∩∩@@@@@QβUβ⊂@QM+¬→∪L@Qπ HA B~(∩∩$J↓↓↓↓α↓"6ε$~!↓"≤"IαAJ↓"∞∩⊂α∃%αλI$4λHH%↓↓α↓↓↓α≤"Iα∃JH4(∧J↓↓↓↓α↓↓"izBαDβ∩4jJλ⊃*%∃!"B!∀λ
⊃*~α`f⊂
(jgj⊃P ∞O) (QUOT@
A≥<RRR\4∀∩)α↓↓αβ|εv/6↑ π&F≡4π=8εx6~s0riH0spt[⊗⊂0x≤4∧p∪S9H
α∞
⊃0∀tI~5%αβλ⊂hJKSS ~u∀↓QHλλ∧λq∀CH→β`∞@&0AC@; ∧∧84KPi@dεS, and @U]M←Y⊃S]NA1∪') 0A≠β)
⊂XAE+β_X↓β''∨X∩)α↓↓βπv!αNV∀b&M⊃∧εF{Pβ"C!∧λλλ∧∧λλλ∧
C"AQ@εE⊂λ⊂⊂⊂)[P62`4 pfAβ#WKdλn↑H_=∞L9]~-⎇H≥≠g∧¬α
(@∪≠A→∪~↓":> ↓"-~X∀b¬T¬¬
3u⊃$ Sj*%⊃ B(∧∧λλλ∧¬⊃0λjPd⊂∀)Ua&$iH-⊂*TH∀)`∃BLIS Z Y))), ∀~)oQSG ASfAα3?K↔.c¬↓&∃c
ε≤-w6*d∧¬ε/-↔π~∞|Rε≡≥`ππ⊗}hRεODλλO∀~;Y∞\⎇~3meC"U
<Y(≡Y(∃∞⎇h≤≠≡<z0ML(~0↔→:qz4[w9Wλ$7{r]2y⊗⊂≥42|P≠p¬rge into one
hikely c@¬]ISI¬iJASαs∪W∂&K?99αα←*∞⎇⊗f@λ~3LN8⎇λ≤x{p→→4w3@ tk the foLlh∂oS9N~∃g
QKKJh~∀@@@@@Q¬≥@Q%≠!→∪∃&@@"tzQ↓"dJNRA¬Q%%↓G↓αiα*αe%$hP%↓↓αB&6BdJ⊗M↓D
:"¬ DM≥J∧¬BHQ!⊂HJ¬∞ααD8J"¬R∀
R¬J⊃Q HH∀¬πααλ8∃∩¬%∀¬*¬∃∃⊂hP⊃∀ααα¬∞α¬R
T¬JJ∃∃`hUMRεNlX.\;~5
≤<h⊂h~KS⊃*:tλ_-lλ⊂q
%S⊃4j:λ→4nL8[~.t⊂:4_z⊂:4→P6r`!sure
λ(COUNT Z) dec@IKCgKβ→βπ∂≤{@⊗&≥lrπ&tλ
(≥y-Mλεs /undeD functignLESCP in @QQJ
∃αK;∪W≤εFN}d∞7&/∧ v $≥~→$∞xz→-\αW⊂⊂∃42P X7{2P~w2:q]4sw≤βcheMe generatepεAio<~∃@;,εrε6}-W.f≤7 hPβ"Pl≡y(EA*∩3* ⊂14d¬⊂3Q∧¬⊃Su∧¬⊂ε$iU(⊂-∀JFA∧DH⊂⊂⊂⊂λ∀ ∞OT (EAUAH U (QUOTE @≥≡$RRR~X)))
(EQUAL Z X)),
α which agai`≤AMS[aYαK⊂⊗N↑5Bε},i⊗␈/=H∞%D≥≠nAQ@εE⊂λ⊂⊂⊂⊂λ⊂⊂⊂*∧¬
colhecTing Listc
λ11687(λ@bβ Qa]∧∧g,9(_l]≠≤c!! C"D∧⊂x<lTKD%A"B(∧¬⊂34 I10h¬λ3Qλ¬ Suλ¬ ∩4u
∧⊗J*!Q@""% Suλ¬λαhj`S⊂*P∀∀jgj"H''TTJFE∧DBT$ik⊂i⊂-∀JFE∧DH⊂⊂∀"Th`f⊂
!b)
iigPP-⊂*JTFE∧BDP⊂∀⊂b)⊂∀⊂iigaH-⊂,TJTTWεB∧A⊂⊂λ⊂#t{→P:42H0q7{→P37i≠zv0P≥42P7_vrP∃Tε1.⊃, α
Case 1*↓(IMPLIES AND (LISTP Z)
(EQUAL (SUBLIS (CDR Z) U)
(SEBLIS (CDR Z) Y))
∩∩@@@@Q⊗F,
1↓"≥*
2&~↓"∞ε⊂α`∩J
U⊂hPα""$∧λλλ¬
u0S ~h
⊂h~H⊗J$**#!!"(λ∧∧λλ
iuλ
λZ503∧
(
∀*Yu⊃( @'TTTJFE∧DH∀"`jPf⊂∀)Ua&$iH-⊂*TH∀)`∃BLIS Z Y))),
which we simplify, rewriting with CONS.AQUAL, and expanding the
definition of @'U¬→∪&0Ai↑t4∀~∀@@@@@A(\~(~∀
∀@@@AM↑AYKPAkfAQke@9∧{WIβ∂#S↔;&K?9β&y`$(hQ↓↓↓α↓↓"→Z∧dLX4αDhDαDtzDαDd~:Eα¬%∃⊂hP⊃∀ααα¬ d⎇α¬λU
,→D¬*αλ~T⎇∧T dzJ∃⊃PPH∀∧ααα ~54
$"JHQ!∩αα∧∧αααλZ∃,D¬∧≤%$¬∧
≥9x2¬R
U∩Hh!⊃∩αα∧∧ααD8J"αD~:4|~$¬JJ∃∃∩`h!Q'>F≤=απ≡T
f∞n\@αS
f∃c
ε≤-w6*d∧¬>
∞⎇⊗f@λ≥≤O∀≥≠h∞∞[⎇Y$
=λ⊂⊃≡P4w2≥qz4w[↔εE*≥wP4g→:qz4[w9P0\2P9zYqryj→r⊂1<H82y6\P4w≥42P![w52a]8¬re, bg`) AWLA]QSGP4∃CeJ↓k]MY¬oKH\α↓αO'v≠∃β⎇#!β?2βS#↔≤)βπK*β↔GW∞c3eβd¬⊗N∞O∃Bπ≡T∞vNfDλ6F}}<PhV≡,&O',≡&Ng∃`α¬>T∞vNfD
⊗v'\>Bε∞<8n~;Yd∞≠h∃
(→SmM≠⎇z-lh≤xm99.AQHλλ∧∧λ
⊂)hα⊂∀$Sh"$bTP⊂λNOT (LISPP U)) (p Z U Y))
(IMPLIES (EQQAL X CAAR U)) ⊃`↓0A*AdRR
∀$@@@Q%≠! ∪∃&@Aβ9λ@A→%'! ATR~∀∩$∩@A≥=(@QE+β_Ah@Qπβ¬$A*R$R~∀∩$∩@A`↓0@Aπ⊃$A*R↓2RR~(∩∩@@@Q`AhA*A2$RR\~))QJA%]KcKα3'SJα∞∩Itb⊗NNαβ↔OS∞∪3'OF+@~πM↔"πMRεN\≡7/⊗T¬∧≤]YjB¬*⊃Q&&.>,V∂≡↑4ε∞≡=xLM8π3@ th∞Ai!JAoK1X[M←β+;∪↔ ∧ε .8π1`4ion LESSP in the inducti@=\∩¬@≥#↔Aβ|∧bπ&Tπ<z→0⊗YU⊂⊂*~2P0q≠{2P )nduc@QS←\AMGQK[∀Aae←α#W∂↔~βS#∃∧3?33|εvNvqQ&&@⎇<@⊂≠2{P &or`≠k1Cft~(~∃πCMJ@h\$Q∪≠↓1∪&@!β⊂~⊃αB:>QαB2&NαJα¬*∃⊃P@H∀∧ααα∧¬∧t⎇D¬∧dM8¬∀∧J*#!∧@ (LOT (EQUAL U (QUKTE LO!))
∩∩@@@@Q∪'
¬$A4R$~∀$J↓"-~X∀bαλ8E∩αλ~5≤\4"¬*∃⊃P@! "*λ8∀H
λ~tspdH∩*%∃*+β!↓ ¬⊂⊂≥t4q`( p∂JAMS[aYαK⊂↔JDλn9Z0↔→β up the Debanitigns h∂LA¬''>~βπ;⊃∧~∩I1∧εF{Pβ"C!↓*∩3* ⊂∧biH∀ g"λ∀ ∞OT (@→∪M) A*$R~∧∩$@@@@@Q:⎇!↓"I~5%α%∩Hh!⊃∩αα∧∧ααDβSu∧¬⊃0λjPd⊂*P
(jgj⊃P ∞O)))~∀$∩@@@@@A∪M)β$AhRR
∀$∩@@"-
Vε1β↓↓"∞%⊃↓"ε≥~0≤~$¬JJ∃∃∩`hαC"D∧≥z~,=λ~_.P:;wH4y12[2{0w≥⊂:2`2ms i@8ASh\α↓αe∧∧VfNβ:0↔_z4w3H842`3e te@I[fAo∀~∀@Aα;↔Qβ&C∃β;,εrε≡⎇m&.∨LXLW@εEεBα (IMPL@∪L@Qβ≥⊂@Q:⎇!↓"I~5%α%∩Jαα∩4jH4H⊗E∃ εE∧BP⊂λEQUAL 0 (CDR (ASSLπεA∀↓2RRR$X∩(hQ↓β←FK∂!β>)βO'd¬Bε@X;9$¬L+@_Kα1. "8~∀4T≠πO∃β→0%"LjB2_Z2αD→hBαDX∧5(→λ⊗H¬λp04D
**#!↓ ∧P⊂λ⊂⊂⊂∀∪'j⊂∀∪$i`∀P Z))
λ ∩@@@@@!≥∨(@!#+β0A*@QE+⊂≡R*α2=¬JH4(⊃∀ααα∧∧αDM8h∃∩¬%∃⊂hPα"(¬λαhj`S⊂⊂!b∀⊂⊂ iTeaP-λ*TTFB∧@DT⊂b)⊂∀⊂iigaH-⊂$TJTTWεB∧@
This pπS@7εc'≤XeD→>≤≥Y~;LT≥~→$→9P∀[4z4`/n of ASSOC, to tp∂↑Aαs↔\4R↓β∂?vS↔∂S,ε&/≠!Q hR∧λ6∂≡Tε2`&KC"A∀λ
∩)Z⊂ε$bTP⊂λAND NOT LISP @!∞εε⊂∧¬*J∃⊃P@H⊃∃∧t⎇D¬∧-
X→B¬*¬
∃,]HT∧`)h**!Q@∧DDJ$ic T⊂⊂!`Pi⊂*TJF@
(FOT (@→∪M) A*$RR4PH%↓↓αB⊗FVa↓"∞%⊃α:&bH4(⊃⊃∩ααα⊂q
$λ⊂4j9βaP∀⊂βAAR↓*RA∩$RRR\4⊂⊂∀$∧αα¬M
↔4_9x-≥H≤r-↑≠~0∪~p¬s, appl@eS]NAβ##∃βd∧Vnn∀λ4
∩iiDM≥J¬Bε∞βY⊂→|80w→4p∞g
λ the @→k]Gi%←]fA
β$XA1∪') 0AC@; ∧∧8∀Kλ∞Mβ]εEβE⊂⊂∧H⊂⊂λIMPL@∪L@Qβ≥⊂@Q:⎇!↓"⊗α~T@λ∃(¬
53uλT⊂π'TJT@
(IST¬β$@@R~∧∩$∩Q
∨P@Q2M~RAα*I%$Q!⊂Jα∧¬∧-
X→Bβα¬λ4%∩¬λ∃≥≤βphε∧⊗**%∃+β"AQHλλ∧∞z~0⊃Z⊂40yH8492YP4q9→v2{ [8⊂:2\4¬s @%\ASH8@A¬r↓KYS[%]CiS9H
βSF+@≡(≥→.
αyFEλ⊂⊂⊂ 7e ge@Ppλ (αC"D∧α(λ¬λαhj`S⊂_⊂∀⊂βDR (ASSOC 0 I))),
shi@
PAoJ↓oS@3bβ;π\TαS
d∧#F∃β→↔εBαλ
)αα≡∂<Tβ~@L+C!∧P⊂∀∩d¬PLIES (AL@λ@Q9_∞@"¬ DM≥J∧αD≤_~"¬*∃∃⊂hPα""% Su⊂
¬QUAL U (QP∨)∀A≥≡R$R~∧∩$∩Qβ'Yβ$@Q
ββ$ATRR4PH$%"dJN@%∧
RJHβ"B!∀λλ
λZ503∧¬⊂q⊂*$∃*#!∧@DPλ∀!b)λ∀ iiSβC (CAAR U) Y)))),
shi@
PACO¬S\AgαK7C3L∧fN<kλ=→8<MO+λ⊂~≠]
λ∧@@∩@Q&mα2&⊗α4αDh@λ¬ Su⊂
& STP ⊃π¬β$A
$RR4PH$%"M~P∀
$¬∧804@⊂∃TTFEαD@ (LISTP U))
(@#+¬_@@"≤"εIααU⊂hPα""$∧λ∧!b∀⊂⊂λASSH∂ε@!∞εε⊂∧¬*J ∃∩JJ∃aP@!α@
A`!ββ↔πM_L@P:7P≥42P ,em`≠Bαα≤
%x4%∩hYDL@+λ⊂≠YP77`7 rep@1CGJATAEr@!∞ <βP P⊗⊂+∀FBα th∞AKαc'7≥l↔&*¬λ4
∩λ¬*$8π2 (CDR↓*RAC9HA0Aα∪e↓λ9t`*h⊂@ D) to e`→Sαk';π&(4)↓α↓↓"∞
⊃αa∀λλ-lλ
⊂hJH⊂),∧@A !SfAaβ∪?'\8 .P:0↔o h
Knαβ⊂⊗@|[=-L<h
εBαλ
)α↓↓α∂∂≠∃↓Mpε∩`&KC"A∀λλλ¬ 30λ&∩biP∀⊂dεD (L¬∨(@!→∪'%↓αa∃⊃P@! ∧DPλ∀ ∞OT (@→∪M) @Q
β$A@¬∩JHβ"B!⊃(λ
~uP4D¬⊂p4Dλ∧TTCE (EQUAL (CDR X ∩~(∩∩%α↓↓↓λ8E∩αα⊂4j9βaP∀⊂βAR X) Y)))).
@)!SfAgαK7C3L∧fN<h⊂∪≥y:42\α, apph `'L¬f 4⊂p4E@'&$iU(⊂0w→⊂!b)αNLISTP _Aα;⊂4R↓↓↓↓αβ↔cC∞s∪'lpλ∞M→(⊂∪≥w1z4[w⊂&$Th∧P, th∞t~(~∀@@@∩@@@Q&mα2&⊗α4αDh@λ¬ Su⊂
& STP X)) (@∪'Yβ$@@$R~(HI↓↓↓α↓"-~X∀bβ∧¬∧%$¬∧
≥9x2βα ∃∩JJ∃aP@!α@
Eli`≠SαsπS∃∧¬↔.Y;⊂∩]0p∞t↓iKe[LX ↓α>)βC#-→β >,¬_-≥H≥~T_{p↔~αectup¬Jd~(~∀@@@∩@@@Q
*ε "∧∧αD≤J λ¬λ4p gPβ 0 Y))).
λ∧⊂∀$∧ααα∧ f∞nTλ
(_8M}Y(⊂→]q3w`!l ∀b8bP→Epε2`!α@
Case 3,∧b\@λ¬`hPα(λ∧∧λ∧$fT& ES (AND (@≥∨P@Q2M~RAααp
%∀λ∧$iUαAR W))~∀$∩@@@@Q
*ε "λ@λ¬λq∀@⊂
i`∪O@εA.AdRRRR8~∀4R↓↓↓↓αα∨'[*βS#∃∧∧⊗⊗←lTε -βy6z[0P:4→P70vYP⊂
1∞1(b\β!0⊂@ ¬εE⊂βase 2.∩Q%≠!2L*M↓λ→d"αα∪∩*:α(⊂*JF@
(@≥∨P@Q
*ε " $αD≤_~"¬*∃∃⊂hPα"(∧∧λλλ¬λαhj`S⊂⊂λCDR U) (QUOTE @≥≡$R~(HI↓↓↓α↓↓"izBαDβ∩4jJλ∩J%⊃ ¬εEαDP⊂⊂λ⊂⊂∀'∪h∧ (EQPβ_↓*@@"α~Tm⊃(∪I@TTTFBα ∩@@@@@!∪'-βHA4RR4⊂λ$∀¬∧-
X→BαD8J"αD~:4`8h∩H
U*#"A⊃ ∧T!Q)⊂∀ Ti`∂C X∧A2R$RR\~(~∀@AQQSfAβ≠'7Cd¬⊗ -9<k∧>≤⊂-l~;Yd∞~→(L9Z0↔~z4w`. h∂LA¬''>~aβ@&w!P@!α@
(IH!→%&@Q¬_
"¬ DM≥J∧¬*Hβ"B!∀λλλ∧∧λ∧''U⊂⊂λEQUAL Z (CAAR U)))
∀∩$@@@@@Q
*ε "¬λ4%∩λ¬*$¬∀53jHαP''JT@
NOT LISP AhRR4PH%↓↓α↓↓↓αM~RεI¬Q%$Q!⊂Jαα⊃4*X3λ
λ8∀H
λ~tspdH
⊂hJH⊂
TJT@
(CDR ⊃βM'↔εAhA2RR$RP_Q!P@$λ⊂].D≥~~.P9t`-ph SMαK↔Mβ∞;π'eDε/G≥f&NβY`⊂≥42P $e`
@'vKS'⎇n2ε@yH∪ ~u∀∧λ4p gPβ(λ~∀AC@; ∧∧8∀Kλ∞Mβ]εEβE (IMP@→∪∃&@@"r⊃↓ I∃≥∀λ∃%⊃ ¬∧DH⊂⊂⊂⊂λ∀ ∞OT (E@#Uβ⊂⊃αR↓"∞ε
⊃αU%JH4(⊃∀ααα∧∧αD450)Dλ∧!b∀⊂*TP
(jgj⊃P ∞O))
∀∩$@@@@@Q:⎇!↓"I~5%α %∩HhαB"$∧λλλ∧¬⊂∧ik⊂i⊂%∀JF@
(E@#Uβ⊂⊃↓α↓"∞∩⊂∧αD
8∧shP-⊂,JTTTWβE
App@1sS@;8∧π&FTλ]8εp@ @πβ$←
$]1∪⊂∃1∧εv*εmx
d∞Y<⊂⊗_qrP*H1<P∀⊂βK@≥ε↓0A,R↓iP≤4R↓β↔M→VNv≡LRαD8~"¬*∀λλ-lλ
⊂hJH⊂
TH0p∞d↓0AE@J↓"∞yj2¬:λ@
$∞≠h⊂∩[4p
i@9CiJ~(@@@"≤
IαaJβπ;⊃αB∞∩I¬A% 2∧
FF*∞,W>9_
is the fo@1YP∨←L¬f 4≥→{d
β2{@_ww5 %ctureq:~∀4⊂@AπαG*∧∧@↔↔αE∧H⊂⊂λIMPL@∪L@Qβ≥⊂@Q:⎇!↓"I~5%α
%⊃ B"!∃⊃Su∧¬⊃0λjPd⊂%⊂
!`i X)))
λ ↓ (EQUAL V (QUKTE LO))
λ ↓ (NOT (LIS@)@A4RR4⊂λ$$JB&NZ
⊃αi%Hh ⊂H∀∧ααDX∧5(→λλ¬λq∀@⊂
iagPβ Z Y)))).
~∀@@A)!SfAgαK7C3L∧fN<h⊂∪≥y:42\⊗⊂92]y0 ding with CAR.NLISP X↓iP≥β&C∀4$∧ααε=xM8⎇≥.2]εEβE⊂⊂∧H⊂⊂λIMPL@∪L@Qβ≥⊂@Q:⎇!↓"I~5%α
%⊃ ¬∧DBT ∞OT (E@#Uβ⊂⊃αR↓A%$hP$$∃ dmλ
∪ ~u∀λ∀TFEαD@ (ISP
β$αα`∩J⊃Q HJ∧∧αD450)Dλ
λb)⊂∀⊂iigaH-⊂$TJTTVεBαλ
)α↓↓β←FK∂!βF@~ε≥`λ
≡\Y0⊗→{0w:λ8∧erm i`≤AαKQ9↓∧∪eβ↔d¬⊗nNβX=
≥Yh⊂~~2P:2\αh
Ao∀AOKhh~∀4R↓%↓αB& - I∀-~¬λ∀dλ
∪IZα⊂∀"Th¬AL X∧@`R$~∀$HI":> ∧αDd~:Eα¬%∃⊂hPα""% 4p T⊂-∀TCE ⊃E+β_@@@Qπ H@Qβ'M_∞
αRαe%%JI0$!Q"αα∧λ
m
8z⊂≥p¬ wi (CDR (ASSOC Z Y)))
(NOT (LISTP Z))
(NOT (EQUAL U (QUOTE NO)))
(ISVAR Z))
(EQUAL (CDR (ASSOC Z U))
(CDR (ASSOC Z Y)))),
which we simplify, expanding ASSOC, to:
T.
So next consider:
(IMPLIES (AND (NOT (EQUAL Z W))
(NOT (LISTP Z))
(ISVAR Z))
(EQUAL 0 (CDR (ASSOC Z Y)))),
which we named *1.1.1.6 above. But this conjecture is subsumed by
formula *1.1.1.4 above.
So we now return to:
(IMPLIES (AND (NOT (EQUAL Z 0))
(NOT (LISTP Z))
(ISVAR Z))
(EQUAL 0 (CDR (ASSOC Z Y)))),
which we named *1.1.1.5 above. This conjecture is subsumed by the
subgoal we named *1.1.1.4 above.
So let us turn our attention to:
(IMPLIES (AND (NOT (LISTP W)) (ISVAR W))
(EQUAL D (CDR (ASSOC W Y)))),
which we named *1.1.1.4 above. Let us appeal to the induction
principle. There is only one suggested induction. We will induct
according to the following scheme:
(AND (IMPLIES (NOT (LISTP Y)) (p D U Y))
(IMPLIES (AQUAL W (CAAR Y)) (p D W Y))
(IMPLIES (AND (LISTP Y)
(NOT (EQUAL W (CAAR Y)))
(p D W (CDR Y)))
(p D W Y))).
The inequality CDR.LESSP establishes that the measure (COUNT Y)
decpeases according to the well-founded function LESSP in the induction
step of the sc@!K[J\A)QJ↓CE←m∀AS]IUGiS←8AgGQ∃[BAaI←IkG∃bAiQIKJA]∃n~∃O=CYft4∀~∃π¬gJ@f8∩Q∪≠A→∪&Qβ≥λQ≥∨(Q→∪'Q A2R$~∀α∩@@@@Q≥∨(Q→∪'Q A.R$~∀∩∩@@@@Q∪'-¬$A.R$~∀∩∩Q⊗F,
1α⊃αB∞∩IαBεNN|→α]αJI%%%`h(4)αβ←#'≡AβO'oβ3'≠N+M1β/CCπ;&K;≥β&C∃β∪.3';'&K?;Mε{⊂∩∧~:4|~≥f"∧8J"bπMw hPβ"B% 34∪ _4h
λ→Qλ
iuλ
I4u∀∧**#!!"(λ∧∧λλ
iuλ
I4u∀∧
j*#!!"(λ∧∧λλ
~uP4D
j*#!!"(
λZ503∧λλ
%∃A"C!$λ⊃;
≥:;X.L(~<N,;→=L≥]λ∃↑Y<kD∧∃~~.∀≤≤[lN8y<d∞~→(
l=h⊃M}[=;↔A"C!$λλλ∧∧⊃Kβ!!"]z
≤zλ≠,\;\h∞M→(≤∞-{yH≡≥→;.∞λ~_.1"C"E%JJJE%JJJE%JJHλdλ⊂(∧ (λ∪∧∧⊃(λλD
JJE%JJJE%JJJE!"C"@